home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 August / macformat-027.iso / mac / Shareware City / Developers / Oberon⁄F / System / Docu / In (.txt) < prev    next >
Encoding:
Oberon Document  |  1994-06-07  |  3.8 KB  |  78 lines  |  [oODC/obnF]
  1. Documents.StdDocumentDesc
  2. Documents.DocumentDesc
  3. Containers.ViewDesc
  4. Views.ViewDesc
  5. Stores.StoreDesc
  6. Documents.ModelDesc
  7. Containers.ModelDesc
  8. Models.ModelDesc
  9. Stores.ElemDesc
  10. TextViews.StdViewDesc
  11. TextViews.ViewDesc
  12. TextModels.StdModelDesc
  13. TextModels.ModelDesc
  14. TextModels.AttributesDesc
  15. Geneva
  16. TextRulers.StdRulerDesc
  17. TextRulers.RulerDesc
  18. TextRulers.StdStyleDesc
  19. TextRulers.StyleDesc
  20. TextRulers.AttributesDesc
  21. Geneva
  22. Geneva
  23. 8.2 In
  24. DEFINITION In;
  25.     VAR Done: BOOLEAN;
  26.     PROCEDURE Open;
  27.     PROCEDURE Char (VAR ch: CHAR);
  28.     PROCEDURE Int (VAR i: INTEGER);
  29.     PROCEDURE LongInt (VAR l: LONGINT);
  30.     PROCEDURE Real (VAR x: REAL);
  31.     PROCEDURE Name (VAR name: ARRAY OF CHAR);
  32.     PROCEDURE String (VAR str: ARRAY OF CHAR);
  33. END In.
  34. This module is provided for compatibility with the book "Programming in Oberon" (-> "Bibliography"). It is useful when learning the language. It is not recommended for use in production programs.
  35. VAR Done
  36. This variable indicates whether the most recent input operation has succeeded. It is set to TRUE by a successful Open, and set to FALSE by the first unsuccessful input operation. Once set to FALSE, it remains FALSE until the next Open.
  37. PROCEDURE Open
  38. This procedure opens the input stream. In Oberon/F, the input stream is opened onto the target focus' text. If there is no target focus, or if it doesn't contain text, Done is set to FALSE. If there is a target focus containing text, the input stream is connected to the beginning of the text if there is no selection, otherwise to the beginning of the selection.
  39.     input stream was opened successfully
  40. ~Done
  41.     input stream couldn't be opened
  42. PROCEDURE Char (VAR ch: CHAR)
  43. If Done holds, this procedure attempts to read a character, otherwise it does nothing.
  44.     ch has been read
  45. ~Done
  46.     no character could be read
  47. PROCEDURE Int (VAR i: INTEGER)
  48. If Done holds, this procedure attempts to read an integer, otherwise it does nothing.
  49.     i has been read
  50. ~Done
  51.     no integer could be read
  52. PROCEDURE LongInt (VAR l: LONGINT)
  53. If Done holds, this procedure attempts to read a long integer, otherwise it does nothing.
  54.     l has been read
  55. ~Done
  56.     no long integer could be read
  57. PROCEDURE Real (VAR x: REAL)
  58. If Done holds, this procedure attempts to read a real number, otherwise it does nothing.
  59.     x has been read
  60. ~Done
  61.     no real number could be read
  62. PROCEDURE Name (VAR name: ARRAY OF CHAR)
  63. If Done holds, this procedure attempts to read a name, otherwise it does nothing. A name is a sequence of legal Oberon/L identifiers concatenated by periods, e.g. "Dialog.Beep".
  64.     x has been read
  65. ~Done
  66.     no name could be read
  67. PROCEDURE String (VAR str: ARRAY OF CHAR)
  68. If Done holds, this procedure attempts to read a string, otherwise it does nothing. A string is a sequence of characters delimited by white space (i.e. blanks, carriage returns, tabulators) or by double quotes (").
  69.     str has been read
  70. ~Done
  71.     no string could be read
  72. TextControllers.StdCtrlDesc
  73. TextControllers.ControllerDesc
  74. Containers.ControllerDesc
  75. Controllers.ControllerDesc
  76. Geneva
  77. Documents.ControllerDesc
  78.